home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr09 / eventr13.zip / REMEVENT.BAS (.txt) < prev    next >
QuickBASIC Tokenized Source  |  1993-06-06  |  9KB  |  177 lines
  1. GetdateV
  2. Convdatemmdd
  3. month
  4. convdate000
  5. months
  6. tomonth
  7. daysofmonth;
  8.     dayofyear
  9. compare.
  10. reminder
  11. reminder.evtd
  12. false
  13. event
  14. addevent_
  15. Menu~
  16. choice
  17. descript
  18.     writeventr
  19. dummy
  20. formateventw
  21. Enter
  22. year 
  23. PRINTEnter
  24. writeevent>
  25. recordH
  26.     eventdatad
  27. eventdescript^
  28.     eventinfo~
  29. addeventEND
  30. eventstuff
  31.     eventjunk
  32. filetest
  33. lastrecord
  34. choicescreen
  35. titles
  36. editevents
  37. listevents
  38.     printfile
  39.     recordnum
  40. recordsprinted
  41. shone
  42. recordedit;
  43. recorddelete
  44. compressfile
  45. eyear-
  46. numeventG
  47. emonth$
  48. convmmmonth
  49. deletevent
  50. convmmonthQ
  51. title
  52. sortevents
  53. ecomment
  54. events=
  55.     edaysaway
  56. passnum
  57. index
  58.     sortevent-
  59. emonthventinfo
  60. emonthventinfo.month
  61. recordnumevents
  62.     getevents
  63. numlist
  64. lineat&
  65. callgeteventsW
  66. printmonthN
  67. numberdelete>
  68. printTH
  69. EVENTemonth
  70. eventcomment
  71. commentq
  72. event.month
  73.     event.day
  74.     changenum
  75. eventinfo.month
  76. eventinfo.day
  77. eventinfo.year
  78. eventinfo.eventdescript
  79. findposition
  80. insertevent0
  81. ordnum[
  82. remLOF
  83. recordelete
  84. descriptPRINTh
  85. removevent
  86. arecordelete
  87.     numdelete
  88.     lineINPUTt
  89. trunfilez
  90. reminder.dat
  91. temp.dat
  92. tmonth
  93. Change
  94.  Event Reminder ver 1.3  Remevent   Add and Edit Events
  95.  Copyright (c) 1992, 1993 Bruce Halperne
  96. addevent
  97. |   Adding event   |
  98. Type the month of the event (1-12) and hit enter
  99. Type the day of the event (1-31) and hit enter
  100. Type the year the event first occurred (1800-2099) and hit enter
  101. (If you do not wish to enter the year, just hit enter)
  102.    Type a description of the event (John Brown's Birthday, etc.) and hit enter
  103. |   Adding event   |
  104.    -----------------------------------------------------------------------
  105.    -----------------------------------------------------------------------
  106. Add this event (y/N)
  107. CANNOT ADD EVENT
  108. EVENT ADDED"
  109. EVENT NOT ADDED"
  110. Hit enter to continue"
  111.  Change screen color to blue
  112.  Enter choice of actions
  113. Sub that lists the events
  114. Sub that adds an event
  115. Sub that deletes an event
  116. Exit program
  117. choicescreen
  118.        Event Reminder v1.3
  119. Copyright (c) 1992, 1993 Bruce Halpern
  120. |   This is RemEvent, the program that adds and   |"
  121. |               deletes your events.              |"
  122.   Do you wish to:"
  123.               1. List events
  124.               2. Add an event"
  125.               3. Delete an event
  126.               4. Exit RemEvent
  127. Type the number of your choice
  128. listevents
  129.    Events:
  130. .\reminder.dat
  131. Check if any events in file
  132. < No events in file >"
  133. Convert month from number to namen
  134. Prevent scrolling of info
  135. (more events, press enter to display)"
  136.    Events:
  137. (End of events, press enter to continue)
  138. deletevent
  139. Record #     Date             Event comment"
  140. reminder.dat
  141. (more events, hit enter to view)
  142. Type the record number of an event to delete, then hit enter
  143. (If you do not wish to delete an event, just hit enter)  "
  144. Record #     Date             Event comment"
  145. If blank line at end of file then
  146. Call sub to truncate filet
  147. convmmonth
  148. January"
  149. February
  150. March"
  151. April"
  152. August
  153. September"
  154. October"
  155. November
  156. December
  157. title
  158. RemEvent   --    Add and delete events           "
  159. findposition
  160. Place the event in the data file in date order.f
  161. .\reminder.dat
  162. recordelete
  163. |   Deleting event   |
  164.    -----------------------------------------------------------------------
  165.    -----------------------------------------------------------------------
  166. Delete this event (y/n)"
  167. EVENT DELETED"
  168. EVENT NOT DELETED"
  169. Hit enter to continue"
  170. removevent
  171. trunfile
  172. reminder.dat
  173. temp.dat
  174. reminder.dat
  175. temp.dat
  176. reminder.dat
  177.